home *** CD-ROM | disk | FTP | other *** search
/ Seymore Butts - Bustin Out My Best! Anal / Seymore Butts - Bustin Out My Best Anal.iso / pc / setup.inf < prev    next >
Text File  |  1995-03-13  |  3KB  |  112 lines
  1. DefineVariables
  2.   Text    [ProductName] := Seymore Butts
  3. EndDefineVariables
  4.  
  5. [String1] := See Film Movie: [ProductName]
  6.  
  7. ;; Initialize variables for screen and script execution
  8. SetBackgroundColor 0 0 64 191 64 0
  9. SetDefaultBitmap off
  10. ;;LoadBitmap 1 rdlogo.BMP
  11. ;;ShowBitMap 1 @xy(95,25)
  12. ShowWindow Maximized
  13.  
  14. SetReplacementInquiry OFF
  15. SetReadOnlyInquiry OFF
  16. SetModifyModeTo MODIFY
  17. NoSysFileConfirmation
  18.  
  19. ;; Product Introduction Screen
  20. Dialog
  21.   [ProductName] installation.
  22. EndDialog
  23.  
  24.  
  25. ;; These four lines allows the selection of an installationdrive and
  26. ;; directory. The entire install process is accomplished here.
  27.  
  28. ;;DetermineInstallationDrive RequireFixed
  29. ;;DetermineInstallationDirectory InstallationDrive:\SeeFilm
  30.  
  31. ;;VerifyCorrectMedia [InstallFromDrive] DBC 1 volumelabel=DBC_1
  32. ;;CopyFiles from [InstallFromDirectory] 
  33. ;;    readme.txt
  34. ;;EndCopyFiles
  35.  
  36. DialogBox 165 56 UseHeader "" Returns [Number6] BlackOnLightGray NoCaption
  37.   CText         @xy( 10, 2)   151  8 "QuickTime for Windows is needed to run the"
  38.   CText         @xy( 10, 12)  151  8 [String1]
  39.   CText         @xy( 10, 22)  151  8 "Would you like to install it now?"
  40.   DefPushButton @xy( 23, 40) 50 14 "&Install" 1011
  41.   PushButton    @xy( 95, 40) 50 14 "&No Install" 1012
  42. EndDialogBox
  43.  
  44.  If [Number6] = 1012
  45.     GoTo GoMedia
  46.  Endif
  47.  
  48.  If [Number6] = 1013
  49.     GoTo GoMedia
  50.  Endif
  51.  
  52.  
  53. :QTInst
  54. ClearScreen
  55. TextBox
  56.      Now Installing the 
  57.     QuickTime for Windows
  58.        system software
  59. EndTextBox
  60.  
  61. CopyFiles from [InstallFromDirectory]\lib to [WindowsSystemDirectory] quietly
  62.     *.*
  63. EndCopyFiles
  64.  
  65. CopyFiles from [WindowsSystemDirectory] to [WindowsDirectory] quietly
  66.     playenu.dll
  67.     viewenu.dll
  68. EndCopyFiles 
  69.  
  70. ModifyTextFile [WindowsDirectory]\control.ini Quietly
  71.     InSection [drivers.desc]
  72.     AddOrChangeLineWith (mciqtw.drv,,) as "[WindowsSystemDirectory]\mciqtw.drv = [MCI] QuickTime for Windows" at end
  73. EndModifyTextFile
  74.  
  75. ModifyTextFile [WindowsDirectory]\win.ini Quietly  NoInquiry
  76.     InSection [mci extensions]
  77.     AddOrChangeLineWith (mov,=,) as "mov=QTWVideo" at end
  78.     AddOrChangeLineWith (pic,=,) as "pic=QTWVideo" at end
  79.     AddOrChangeLineWith (jpg,=,) as "jpg=QTWVideo" at end
  80. EndModifyTextFile
  81.  
  82. ModifyTextFile [WindowsDirectory]\system.ini Quietly
  83.     InSection [mci]
  84.     AddOrChangeLineWith (mciqtw.drv,,) as "QTWVideo=[WindowsSystemDirectory]\mciqtw.drv" at end
  85. EndModifyTextFile
  86.  
  87.  
  88. :GoMedia
  89. ProgramManagerDDe
  90.   CreateGroup(See Film)
  91.   ReplaceItem([ProductName])
  92.   ReplaceItem([ProductName] readme)
  93.  
  94.  AddItem([InstallFromDirectory]\winp.exe, [ProductName] )
  95.  AddItem(notepad.exe [InstallFromDirectory]\readme.txt, [ProductName] readme)
  96.  
  97. EndProgramManagerDDE
  98.  
  99.  
  100. ;; Exit dialog box and messages
  101. Dialog
  102.   [ProductName] installation is complete.
  103.   Enjoy the Movie!
  104. EndDialog
  105.  
  106. :SoLong
  107.  
  108. Procedure DDENonFatalErrorTrap
  109. EndProcedure
  110.  
  111. EndScript
  112.